home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 22 / Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_B.d64 / late night tv (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  34 lines
  1. 13 print"[147]"chr$(142):poke53281,12:poke53280,0:poke646,0
  2. 14 print"       desk softworks international[145][145][145][145]"
  3. 15 a$=a$+" ":x=x+1
  4. 16 printa$"[167][163][163][165]"
  5. 17 printa$"    [223][146]"
  6. 18 printa$"[209][209][209][209][209]"
  7. 19 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  8. 20 ifx=1thenfort=1to1000:nextt
  9. 21 print"[145][145][145][145][145][145]"
  10. 22 ifa$=>"                                "then24
  11. 23 fort=0to18:nextt:goto15
  12. 24 print"  l.n. tv - alone in the dark"
  13. 25 print" hy here !"
  14. 26 print" the magical zeitgeist is back again"
  15. 27 print" and he's more than proud presentin'"
  16. 28 print" you in cooperation with desk soft-"
  17. 29 print" works international his new project"
  18. 30 print" called 'late night tv' or short"
  19. 31 print" 'l.n.tv' ! long lives the c64 !!!"
  20. 32 print" f1[146] get main programm"
  21. 33 print" f3[146] read message"
  22. 34 print" f5[146] fuck off programm"
  23. 35 geta$:ifa$=""then35
  24. 36 ifa$="[133]"thenn$="main*":goto100
  25. 37 ifa$="[134]"thenn$="message*":goto100
  26. 38 ifa$="[134]"thensys64738
  27. 39 goto35
  28. 100 poke53281,1:poke53280,1:poke646,1:poke53272,21
  29. 101 print"[147]poke44,50:poke15360,0:new"
  30. 102 print"load"chr$(34)n$chr$(34)",8:"
  31. 103 print"run[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  32. 105 poke198,0:fori=0to9:poke631+i,13:nexti:poke198,10
  33. 106 stop
  34.